﻿Imports System.Windows.Data

Public Class MillierConverter
    Implements IValueConverter

    Public Function Convert(value As Object, targetType As Type, parameter As Object, culture As Globalization.CultureInfo) As Object Implements IValueConverter.Convert
        Dim dValue As Double = CDbl(value)
        Return dValue / 1000
    End Function

    Public Function ConvertBack(value As Object, targetType As Type, parameter As Object, culture As Globalization.CultureInfo) As Object Implements IValueConverter.ConvertBack
        Dim dValue As Double = CDbl(value)
        Return dValue * 1000
    End Function

End Class
